generic
with procedure
print_item
(
i
:
itemtype
);
-- This generic parameter is used for printing an itemtype value
package
stackpkg
.
utils
is
procedure
print_stack
(
s
:
Stack
);
function
size
(
s
:
Stack
)
return
natural
;
end
stackpkg
.
utils
;